home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / zlab_ra3.zip / ZLAB-EFT.BAT < prev    next >
Encoding:
DOS Batch File  |  1992-02-08  |  1.7 KB  |  44 lines
  1. @echo off
  2. rem               ZipLab Plus - EFT Interface batch
  3. rem                  by Mike Ehlert 1:102/1001
  4. rem                        Version 2.0
  5. rem
  6. rem  Read the ZLAB-RA.DOC that came with this batch for more info.
  7. rem
  8. rem  This will assume the enviornment variable %NODE% is set to the current
  9. rem  node number. For example "Set NODE=1" for line1, and so on.
  10. rem  If you don't run multinode, then you can replace "%NODE%" with "1" 
  11. rem
  12. rem
  13. rem First convert the RA DORINFO1.DEF to  PCBOARD.DAT and PCBOARD.SYS files
  14. rem and add on lines 153-198 to make it an extended PCBOARD.DAT 
  15.  
  16. qkdoor c:\ra\line%NODE%\RA c:\ra\line%NODE%\PCB14
  17. copy c:\ra\line%NODE%\pcboard.dat+c:\ra\ziplab\add.%NODE% c:\ra\line%NODE%\pcboard.dat
  18.  
  19. rem The next rem will create a 0 byte caller file, expected by ziplab
  20. rem>c:\ra\line%NODE%\caller
  21.  
  22. rem The set statment will make ZipLab think we are running Prodoor,
  23. rem so that ZipLab will not look for extra pcb files.
  24. set PCBDOOR=PRODOOR
  25.  
  26. Rem Run Ziplab Plus (ptest) and pass it the filename and .cfg file to use.
  27. c:\ra\ziplab\ptest.exe %1 c:\ra\ziplab\ptest%NODE%.cfg
  28.  
  29. rem  If a file call PCBFAIL.TXT exists, that means that ziplab considers
  30. rem  the test to have failed. EFT does not care about such a filename,
  31. rem  EFT only checks if a file called GOOD exists, then the test passed.
  32. rem  So here we must create GOOD as long as there is no PCBFAIL.TXT.
  33.  
  34. if exist c:\ra\line%NODE%\pcbfail.txt goto bad
  35. echo good > GOOD
  36. goto end
  37.  
  38. :bad
  39. erase c:\ra\line%NODE%\pcbfail.txt
  40. rem since a file failed, add the reason and uploders name to the ziplab.log
  41. copy c:\ra\ziplab\ziplab.log+c:\ra\line%NODE%\caller+exitinfo.eft c:\ra\ziplab\ziplab.log
  42. :end
  43. Rem Thats it, now its back to EFT.
  44.